home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / RANDSCAN.ZIP / RANDSCAN.BAS next >
BASIC Source File  |  1991-06-16  |  15KB  |  427 lines
  1. 1 REM Random And Sequential Scanner
  2. 2 REM Written Christmas Break 1990
  3. 3 REM This Program Is Public Domain, Feel Free To
  4. 5 REM Modify, Distribute and Fuck Up This Program Any Way You Want..
  5. 6 CLS
  6. 7 GOSUB 15000
  7. 8 PRINT " Enter Optional Randomization Seed (1-100) ":INPUT G
  8. 9 RS=0:PTG=0:F=0:ARA=0:NRA=0:KOM=0:STAT$="N/A"
  9. 10 PRINT " Sequential   Or   Random  ?  "
  10. 11 PRINT "  (1)-Sequential  "
  11. 12 PRINT "  (2)-Random      "
  12. 13 PRINT "  (3)-800 ULTRA Randomization  "
  13. 15 INPUT RS
  14. 16 IF RS>1 THEN PRINT " How Many Random Attempts ? "
  15. 17 IF RS>1 THEN 18 ELSE 20
  16. 18 INPUT NRA
  17. 19 FTR=1
  18. 20 PRINT " Input Any Additional Modem Init Commands (ie ATS7=XX) " : INPUT SP$
  19. 25 PRINT " (1) COM 1 @ 2400 "
  20. 26 PRINT " (2) COM 2 @ 2400 "
  21. 27 PRINT " (3) COM 1 @ 1200 "
  22. 28 PRINT " (4) COM 2 @ 1200 "
  23. 29 INPUT KOM
  24. 30 ON ERROR GOTO 30000
  25. 32 PRINT "Enter File Name And Path For Output (Results Will Be Appended) "
  26. 33 INPUT OT$
  27. 40 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  28. 42 IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  29. 43 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  30. 44 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  31. 45 OPEN OT$ FOR APPEND AS #2
  32. 50 GOSUB 300
  33. 60 GOSUB 500
  34. 65 GOSUB 300
  35. 66 GOSUB 550
  36. 67 GOSUB 200
  37. 68 IF RS=1 THEN GOTO 6000
  38. 70 IF RS=2 THEN GOTO 660
  39. 75 IF RS=3 THEN PRINT " Enter Filename And Path For 800 Exchange List "
  40. 80 INPUT FEX$
  41. 85 OPEN FEX$ FOR INPUT AS #3
  42. 90 IF RS=3 THEN GOTO 20000
  43. 200 REM Send Second Optional Modem String
  44. 210 PRINT " Input Optional Modem Commands (ie ATM0) "
  45. 215 INPUT SMO$
  46. 220 PRINT #1,SMO$
  47. 230 GOSUB 400
  48. 240 RETURN
  49. 300 REM CommInit Routine Pauses And Reads All Input From Modem
  50. 305 FOR T=1 TO 666: NEXT T
  51. 310 WHILE LOC(1)
  52. 320 A$=INPUT$(1,1):PRINT A$;:WEND
  53. 330 FOR T=1 TO 666: NEXT T
  54. 340 RETURN
  55. 400 REM External Call To Wait For Modem Acknowlegement Of Command
  56. 405 IF ABT$="q" THEN END
  57. 410 WHILE LOC(1)=0:WEND:GOSUB 300:RETURN
  58. 500 REM Send Init String To Modem
  59. 510 PRINT #1,"ATZ":GOSUB 300
  60. 512 GOSUB 400
  61. 520 PRINT #1,SP$:GOSUB 300
  62. 530 RETURN
  63. 550 REM Send ATX4
  64. 560 PRINT #1,"ATX4":GOSUB 300
  65. 580 RETURN
  66. 660 PRINT "What Exchange ? (Enter:  1800XXX  For 800 Scanning...)
  67. 662 INPUT EXC
  68. 666 REM Dialing Of Numbers and Random Selection
  69. 667 RANDOMIZE TIMER:FOR AAA=1 TO G:IF NRA=ARA THEN GOTO 10000
  70. 668 F=0
  71. 669 R=INT(RND*10) : M=INT(RND*10) : N=INT(RND*10) : V=INT(RND*10)
  72. 675 NEXT AAA
  73. 676 FOR MMM=1 TO 1000: NEXT MMM
  74. 677 PRINT #1,SP$ :GOSUB 400
  75. 678 PRINT #1,SMO$
  76. 679 GOSUB 400
  77. 680 PRINT #1,"ATDT";EXC;R;M;N;V
  78. 685 ARA=ARA+1
  79. 690 IF PTGFX=1 THEN GOSUB 26000
  80. 1000 REM Attempt To Read And Process Modem CONNECT/BUSY/NO CARRIER Messages...
  81. 1015 WHILE LOC(1) OR F=0
  82. 1016 UWP$=INKEY$ : IF UWP$=CHR$(27) THEN GOTO 10000
  83. 1020 B$=INPUT$(2,1)
  84. 1021 IF B$="CO" THEN GOTO 3000
  85. 1022 IF B$="NN" THEN F=1
  86. 1023 IF B$="NO" THEN F=2
  87. 1024 IF B$="BU" THEN F=2
  88. 1025 IF B$="BU" THEN PTG=1
  89. 1027 PRINT B$;
  90. 1030 WEND
  91. 1035 IF F=2 THEN GOTO 5000
  92. 1040 IF F=1 THEN GOTO 3000
  93. 2000 REM
  94. 2030 PRINT "OH SHIT!"
  95. 3000 REM Log Randomly Located Carriers
  96. 3001 F=0
  97. 3002 CLOSE #1
  98. 3005 PRINT"FUCK!"
  99. 3030 FOR S=1 TO 1000
  100. 3031 NEXT S
  101. 3035 PRINT #2, "CARRIER FOUND AT";EXC;R;M;N;V
  102. 3036 PRINT EXC;R;M;N;V;"-- Saved As a Carrier --"
  103. 3037 CLOSE #2
  104. 3038 FOR GBS=1 TO 400:NEXT GBS
  105. 3039 IF KOM>2 THEN 3043 ELSE 3040
  106. 3040 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  107. 3041 IF KOM=1 THEN OPEN "COM2:2400,E,7,1" AS #1 : IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  108. 3042 GOTO 3048
  109. 3043 FOR BNV=1 TO 600:NEXT BNV
  110. 3044 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  111. 3045 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  112. 3048 FOR JMN=1 TO 300:NEXT JMN
  113. 3049 OPEN OT$ FOR APPEND AS #2
  114. 3050 FOR S=1 TO 1000
  115. 3055 NEXT S
  116. 3056 STN=STN+1
  117. 3058 IF RS=1 THEN GOTO 7000
  118. 3060 CCOUNT=CCOUNT+1
  119. 3065 IF PTGFX=1 THEN VIEW
  120. 3070 CLS
  121. 3075 STAT$="CONNECT"
  122. 3076 PVR=R:PVM=M:PNV=N:PVV=V
  123. 3080 IF PTGFX=1 THEN GOSUB 26000
  124. 3090 GOTO 666
  125. 5000 REM Log Randomly Located NO CARRIER And BUSY
  126. 5001 F=0:CLOSE #1
  127. 5002 FOR AA=1 TO 1000: NEXT AA
  128. 5003 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1 : IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  129. 5004 IF KOM>2 THEN GOTO 5060
  130. 5006 FOR ZZ=1 TO 1000 : NEXT ZZ
  131. 5007 IF PTG=1 THEN STAT$="BUSY"
  132. 5008 IF PTG=0 THEN STAT$="NO CARRIER"
  133. 5010 IF PTG=1 THEN PRINT"NUMBER BUSY"
  134. 5020 IF PTG=0 THEN PRINT"No Carrier..."
  135. 5030 IF PTG=1 THEN PRINT #2, "--BUSY SIGNAL AT";EXC;R;M;N;V
  136. 5032 IF PTG=1 THEN CLOSE #2
  137. 5033 FOR LPQ=1 TO 600: NEXT LPQ
  138. 5034 IF PTG=1 THEN OPEN OT$ FOR APPEND AS #2
  139. 5035 FOR QPL=1 TO 600:NEXT QPL
  140. 5042 STN=STN+1
  141. 5045 IF RS=1 THEN GOTO 7000
  142. 5046 PVR=R:PVM=M:PVN=N:PVV=V
  143. 5060 FOR GBC=1 TO 1000
  144. 5065 NEXT GBC
  145. 5070 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  146. 5080 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  147. 5081 IF PTG=1 THEN BCOUNT=BCOUNT+1
  148. 5082 IF PTG=0 THEN NCOUNT=NCOUNT+1
  149. 5083 IF PTGFX=1 THEN VIEW
  150. 5084 CLS
  151. 5085 IF PTGFX=1 THEN GOSUB 26000
  152. 5086 PTG=0
  153. 5090 GOTO 666
  154. 6000 REM Define Sequence
  155. 6010 PRINT "What Exchange ?  (Enter  1800XXX  For 800 Scanning)"
  156. 6015 INPUT EXC
  157. 6020 PRINT "Where Do You Want To Start ?"
  158. 6025 INPUT STN
  159. 6030 PRINT "Where Do You Want To Stop ?"
  160. 6035 INPUT STP
  161. 6040 PPO=STN:PPM=STP
  162. 6050 PRINT #2,"Sequential Scan Of The"EXC"Exchange From"STN"To"STP
  163. 7000 REM Dialing Of Sequence
  164. 7002 CLS
  165. 7005 IF STN>STP THEN GOTO 10000
  166. 7010 FOR SDP=1 TO 1000: NEXT SDP
  167. 7011 IF PTG=1000 THEN GOTO 7020
  168. 7015 IF STN<1000 THEN GOTO 7025
  169. 7016 PRINT #1,SP$
  170. 7017 GOSUB 400
  171. 7018 PRINT #1,SMO$
  172. 7019 GOSUB 400
  173. 7020 PRINT #1,"ATDT";EXC;STN
  174. 7021 IF PTGFX=1 THEN GOSUB 26000
  175. 7022 GOTO 7030
  176. 7025 IF STN<1000 AND STN>99 THEN PRINT #1,"ATDT";EXC;0;STN
  177. 7026 IF STN<100 AND STN>9 THEN PRINT #1,"ATDT";EXC;0;0;STN
  178. 7027 IF STN<10 THEN PRINT #1,"ATDT";EXC;0;0;0;STN
  179. 7028 IF PTGFX=1 THEN GOSUB 26000
  180. 7030 WHILE LOC(1) OR F=0
  181. 7035 UWK$=INKEY$
  182. 7040 SD$=INPUT$(2,1)
  183. 7045 IF SD$="CO" THEN GOTO 8000:IF SD$="0" THEN GOTO 8000
  184. 7050 IF SD$="NN" THEN F=1
  185. 7060 IF SD$="NO" THEN F=2
  186. 7070 IF SD$="BU" THEN F=2
  187. 7080 IF SD$="BU" THEN PTG=1
  188. 7090 PRINT SD$;
  189. 7100 WEND
  190. 7110 IF F=2 THEN GOTO 9000
  191. 7120 IF F=1 THEN GOTO 8000
  192. 7500 PRINT "Oh, Shit!!!!"
  193. 8000 REM Log A Sequential Score...
  194. 8010 F=0
  195. 8020 CLOSE #1
  196. 8030 PRINT "FUCK YEAH!"
  197. 8040 FOR FUK=1 TO 1000
  198. 8050 NEXT FUK
  199. 8056 IF STN<1000 AND STN>99 THEN PRINT #2,"CARRIER FOUND AT";EXC;0;STN
  200. 8060 IF STN>1000 THEN PRINT #2,"CARRIER FOUND AT";EXC;STN
  201. 8065 IF STN=1000 THEN PRINT #2,"CARRIER FOUND AT";EXC;STN
  202. 8070 IF STN>1000 THEN PRINT EXC;STN "SAVED"
  203. 8072 IF STN=1000 THEN PRINT EXC;STN "SAVED"
  204. 8075 IF STN<1000 AND STN>99 THEN PRINT EXC;0;STN "SAVED"
  205. 8076 IF STN<99 AND STN>9 THEN PRINT #2,"CARRIER FOUND AT";EXC;0;0;STN
  206. 8077 IF STN<10 THEN PRINT #2,"CARRIER FOUND AT";EXC;0;0;0;STN
  207. 8078 IF STN<99 AND STN>9 THEN PRINT EXC;0;0;STN "SAVED"
  208. 8079 IF STN<10 THEN PRINT EXC;0;0;0;STN "SAVED"
  209. 8083 FOR LLM=1 TO 300:NEXT LLM
  210. 8084 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  211. 8085 IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  212. 8086 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  213. 8087 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  214. 8090 FOR FUC=1 TO 1000
  215. 8095 CLOSE #2
  216. 8100 NEXT FUC
  217. 8110 STN=STN+1
  218. 8115 CF=0
  219. 8116 OPEN OT$ FOR APPEND AS #2
  220. 8118 IF UWK$=CHR$(27) THEN GOTO 10000
  221. 8119 IF PTGFX=1 THEN VIEW:CCOUNT=CCOUNT+1
  222. 8120 CLS
  223. 8122 IF PTGFX=1 THEN GOSUB 26000
  224. 8123 STAT$="CONNECT"
  225. 8125 GOTO 7000
  226. 9000 REM Log a Sequential BUSY or Reset After Failed Attempt...
  227. 9010 F=0
  228. 9020 CLOSE #1
  229. 9030 FOR BAR=1 TO 1000
  230. 9040 NEXT BAR
  231. 9050 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  232. 9055 IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  233. 9056 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  234. 9057 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  235. 9060 FOR RAB=1 TO 1000
  236. 9070 NEXT RAB
  237. 9080 IF PTG=1 THEN PRINT "Number Busy..."
  238. 9090 IF PTG=0 THEN PRINT "No Carrier! Damn!"
  239. 9095 IF PTG=1 AND STN<1000 AND STN>99 THEN PRINT #2, "--BUSY SIGNAL AT";EXC;0;STN
  240. 9096  IF PTG=1 AND STN<100 AND STN>9 THEN PRINT #2, "--BUSY SIGNAL AT";EXC;0;0;STN
  241. 9097 IF PTG=1 AND STN<10 THEN PRINT #2, "--BUSY SIGNAL AT";EXC;0;0;0;STN
  242. 9105 IF PTG=1 AND STN>1000 OR STN=1000 THEN PRINT #2, "--BUSY SIGNAL AT";EXC;STN
  243. 9110 IF PTG=1 THEN CLOSE #2
  244. 9120 STN=STN+1
  245. 9125 IF PTG=1 THEN OPEN OT$ FOR APPEND AS #2
  246. 9135 IF UWK$=CHR$(27) THEN GOTO 10000
  247. 9136 IF PTGFX=1 THEN VIEW
  248. 9137 IF PTG=1 THEN STAT$="BUSY"
  249. 9138 IF PTG=0 THEN STAT$="NO CARRIER"
  250. 9140 IF PTG=1 THEN BCOUNT=BCOUNT+1
  251. 9141 IF PTG=0 THEN NCOUNT=NCOUNT+1
  252. 9142 PTG=0
  253. 9143 CLS
  254. 9144 IF PTGFX=1 THEN GOSUB 26000 ELSE 9145
  255. 9145 GOTO 7000
  256. 10000 PRINT "Dialing Completed"
  257. 10005 IF UWK$=CHR$(27) AND RS=1 THEN PRINT #2,"Scan Aborted At"STN
  258. 10010 CLOSE #1
  259. 10020 CLOSE #2
  260. 10025 CLOSE #3
  261. 10030 IF PTGFX=1 THEN GOSUB 26000 ELSE 10035
  262. 10032 GOTO 10080
  263. 10035 PRINT"Results:"
  264. 10040 PRINT"Carriers: "CCOUNT
  265. 10045 PRINT"# Busy  : "BCOUNT
  266. 10050 PRINT"No Resp.: "NCOUNT
  267. 10060 PRINT"Total   : "(BCOUNT+CCOUNT+NCOUNT)
  268. 10080 SARAH$=INKEY$
  269. 10085 IF SARAH$="" THEN 10080 ELSE 10100
  270. 10100 END
  271. 15000 REM Print Title
  272. 15010 CLS
  273. 15020 FOR LLL=1 TO 8
  274. 15030 PRINT ""
  275. 15040 NEXT LLL
  276. 15050 FOR III=1 TO 80:PRINT CHR$(219);:NEXT III
  277. 15080 FOR IIP=1 TO 80:PRINT CHR$(178);:NEXT IIP
  278. 15110 FOR IIL=1 TO 80:PRINT CHR$(177);:NEXT IIL
  279. 15140 FOR IIK=1 TO 35:PRINT CHR$(176);:NEXT IIK
  280. 15170 PRINT CHR$(16);"RAND-SCAN";CHR$(17);
  281. 15175 FOR IIJ=1 TO 34:PRINT CHR$(176);:NEXT IIJ
  282. 15180 FOR IIA=1 TO 80:PRINT CHR$(177);:NEXT IIA
  283. 15190 FOR IIB=1 TO 80:PRINT CHR$(178);:NEXT IIB
  284. 15200 FOR IIC=1 TO 80:PRINT CHR$(219);:NEXT IIC
  285. 15210 IID$=INKEY$
  286. 15215 IF IID$="" THEN 15220 ELSE 15230
  287. 15220 GOTO 15210
  288. 15230 CLS
  289. 15240 FOR IIE=1 TO 11:PRINT "":NEXT IIE
  290. 15250 PRINT "                        <c>  1991 By Peter The Great                                    "
  291. 15260 IIF$=INKEY$:IF IIF$="" THEN 15260 ELSE 15265
  292. 15265 CLS
  293. 15266 FOR AQW=1 TO 11:PRINT "":NEXT AQW
  294. 15270 PRINT "                        Conceived And Programmed "
  295. 15271 PRINT "                        By Peter The Great       "
  296. 15276 IIZ$=INKEY$:IF IIZ$="" THEN 15276 ELSE 15280
  297. 15280 CLS
  298. 15285 FOR JJN=1 TO 10 :PRINT "":NEXT JJN
  299. 15290 PRINT "                        Produced And Distributed By "
  300. 15291 PRINT ""
  301. 15292 PRINT "                                    The                  "
  302. 15293 PRINT "                                     "CHR$(244)
  303. 15295 PRINT "                           "CHR$(156)"egion "CHR$(233)"f "CHR$(245)"chram "CHR$(231)"oday"
  304. 15310 PRINT "":PRINT "                                 [L.o.S.T] "
  305. 15320 IQA$=INKEY$:IF IQA$="" THEN 15320 ELSE 15325
  306. 15325 CLS
  307. 15330 PRINT "  Do You Want The Display Window To Be Active [EGA+ REQUIRED] ?"
  308. 15331 PRINT " (1)-Sure. Why Not?"
  309. 15332 PRINT " (2)-No Thanks     "
  310. 15335 INPUT PTGFX
  311. 15350 RETURN
  312. 20000 IF ARA=NRA THEN GOTO 10000
  313. 20001 IF RFX=111 OR FTR=1 THEN 20003 ELSE 20006
  314. 20003 FOR BBB=1 TO G:RANDOMIZE TIMER
  315. 20004 SUCK=INT(RND*10) : MY=INT(RND*10):DICK=INT(RND*10):WHORE=INT(RND*10):NEXT BBB
  316. 20006 IF ARA=NRA THEN GOTO 10000
  317. 20015 FOR NNN=1 TO 1000:NEXT NNN
  318. 20020 INPUT#3,RFX
  319. 20022 IF RFX=111 THEN CLOSE #3
  320. 20023 IF RFX=111 THEN OPEN FEX$ FOR INPUT AS #3
  321. 20024 IF RFX=111 THEN GOTO 20000
  322. 20025 FOR JJJ=1 TO 1000:NEXT JJJ:IF ARA=NRA THEN GOTO 10000
  323. 20026 PRINT #1,SP$:GOSUB 400:PRINT #1,SMO$:GOSUB 400
  324. 20027 IF PTGFX=1 THEN GOSUB 26000
  325. 20030 PRINT #1,"ATDT";1800;RFX;SUCK;MY;DICK;WHORE
  326. 20040 WHILE LOC(1) OR F=0
  327. 20045 UWG$=INKEY$
  328. 20050 URA$=INPUT$(2,1)
  329. 20060 IF URA$="CO" THEN GOTO 25000
  330. 20070 IF URA$="NN" THEN F=1
  331. 20080 IF URA$="NO" THEN F=2
  332. 20090 IF URA$="BU" THEN F=2
  333. 20100 IF URA$="BU" THEN PTG=1
  334. 20110 PRINT URA$;
  335. 20120 WEND
  336. 20130 IF F=1 THEN GOTO 25000
  337. 20140 IF F=2 THEN GOTO 23000
  338. 23000 REM Log Ultra Randomized BUSY and NO CARRIER
  339. 23010 F=0
  340. 23020 CLOSE #1: FOR MBA=1 TO 1000: NEXT MBA
  341. 23030 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  342. 23035 IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  343. 23036 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  344. 23037 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  345. 23040 FOR TGK=1 TO 1000: NEXT TGK
  346. 23050 IF PTG=1 THEN PRINT "Number Busy...."
  347. 23060 IF PTG=0 THEN PRINT "No Carrier...SHIT!"
  348. 23070 IF PTG=1 THEN PRINT #2, "--BUSY SIGNAL AT";1800;RFX;SUCK;MY;DICK;WHORE
  349. 23085 IF PTG=1 THEN CLOSE #2
  350. 23086 FOR QAS=1 TO 400:NEXT QAS
  351. 23087 IF PTG=1 THEN OPEN OT$ FOR APPEND AS #2
  352. 23089 IF UWG$=CHR$(27) THEN GOTO 10000
  353. 23090 IF PTG=1 THEN BCOUNT=BCOUNT+1
  354. 23095 IF PTG=0 THEN NCOUNT=NCOUNT+1
  355. 23096 IF PTGFX=1 THEN VIEW
  356. 23097 CLS
  357. 23098 IF PTG=0 THEN STAT$="NO CARRIER"
  358. 23099 IF PTG=1 THEN STAT$="BUSY"
  359. 23100 IF PTGFX=1 THEN GOSUB 26000
  360. 23200 PSUCK=SUCK:PMY=MY:PDICK=DICK:PWHORE=WHORE
  361. 23300 PRFX=RFX
  362. 23330 PTG=0 :FTR=0
  363. 24000 ARA=ARA+1 : GOTO 20000
  364. 25000 REM Log ULTRA Randomized Carrier
  365. 25010 F=0
  366. 25020 CLOSE #1:FOR JHN=1 TO 1000: NEXT JHN
  367. 25030 IF KOM=2 THEN OPEN "COM2:2400,E,7,1" AS #1
  368. 25035 IF KOM=1 THEN OPEN "COM1:2400,E,7,1" AS #1
  369. 25036 IF KOM=3 THEN OPEN "COM1:1200,E,7,1" AS #1
  370. 25037 IF KOM=4 THEN OPEN "COM2:1200,E,7,1" AS #1
  371. 25040 FOR NHJ=1 TO 1000: NEXT NHJ
  372. 25045 PRINT "Fuck Yeah!"
  373. 25050 PRINT #2,"CARRIER FOUND AT";1800;RFX;SUCK;MY;DICK;WHORE
  374. 25055 PRINT "1800";RFX;SUCK;MY;DICK;WHORE;"Logged As A Carrier"
  375. 25056 CLOSE #2
  376. 25060 ARA=ARA+1 :FTR=0
  377. 25065 OPEN OT$ FOR APPEND AS #2
  378. 25069 IF UWG$=CHR$(27) THEN GOTO 10000
  379. 25070 IF PTGFX=1 THEN VIEW
  380. 25075 CCOUNT=CCOUNT+1
  381. 25076 PSUCK=SUCK:PMY=MY:PDICK=DICK:PWHORE=WHORE
  382. 25077 PRFX=RFX
  383. 25080 CLS
  384. 25082 STAT$="CONNECT"
  385. 25085 IF PTGFX=1 THEN GOSUB 26000
  386. 25090 GOTO 20000
  387. 26000 REM Draw And Update The Display...
  388. 26010 SCREEN 9
  389. 26020 VIEW (633,1)-(360,214),8,15:VIEW (632,2)-(361,213),,5
  390. 26025 VIEW (620,10)-(380,200),0,4:VIEW (619,11)-(381,199),,4:VIEW (618,12)-(382,198),,4:VIEW (617,13)-(383,197),,4:VIEW (616,14)-(384,196),,4
  391. 26030 WINDOW (620,8)-(380,200)
  392. 26031 COLOR 12
  393. 26032 LOCATE 2,55:PRINT"R A N D - S C A N"
  394. 26040 LOCATE 4,50:COLOR 9
  395. 26045 IF RS=1 THEN PRINT "Mode       :":LOCATE 4,62:COLOR 4: PRINT " SEQUENTIAL"
  396. 26050 IF RS=2 THEN PRINT "Mode       :":LOCATE 4,62:COLOR 4: PRINT " RANDOM    "
  397. 26055 IF RS=3 THEN PRINT "Mode       :":LOCATE 4,62:COLOR 4: PRINT " SCHRAMMIN'"
  398. 26058 COLOR 9
  399. 26060 LOCATE 5,50
  400. 26065 PRINT"Connections:":COLOR 9:LOCATE 5,62:PRINT CCOUNT
  401. 26070 LOCATE 6,50:COLOR 9
  402. 26075 PRINT"Busy Count :":COLOR 9:LOCATE 6,62:PRINT BCOUNT
  403. 26080 LOCATE 7,50:COLOR 9
  404. 26085 PRINT"No Carriers:":COLOR 9:LOCATE 7,62:PRINT NCOUNT
  405. 26090 LOCATE 8,50:COLOR 9
  406. 26095 PRINT"Total      :":COLOR 9:LOCATE 8,62: PRINT (BCOUNT+CCOUNT+NCOUNT)
  407. 26100 LOCATE 9,50
  408. 26105 IF RS=1 THEN PRINT"Current #:":LOCATE 9,60:COLOR 4:PRINT EXC;STN
  409. 26110 IF RS=2 THEN PRINT"Current #:":LOCATE 9,60:COLOR 4:PRINT EXC;R;M;N;V
  410. 26115 IF RS=3 THEN PRINT"Current #:":LOCATE 9,60:COLOR 4:PRINT RFX;SUCK;MY;DICK;WHORE
  411. 26117 LOCATE 10,50:COLOR 9
  412. 26120 IF RS=1 THEN PRINT"Prev. #  :":LOCATE 10,60:COLOR 9:PRINT EXC;STN-1
  413. 26125 IF RS=2 THEN PRINT"Prev. #  :":LOCATE 10,60:COLOR 9:PRINT EXC;PVR;PVM;PVN;PVV
  414. 26126 IF RS=3 THEN PRINT"Prev. #  :":LOCATE 10,60:COLOR 9:PRINT PRFX;PSUCK;PMY;PDICK;PWHORE
  415. 26130 LOCATE 11,50:COLOR 9
  416. 26140 PRINT"Prev. Stat.: ":LOCATE 11,63:COLOR 9:PRINT STAT$
  417. 26145 LOCATE 13,55:COLOR 12
  418. 26150 PRINT"L.o.S.T / PTG '91"
  419. 26155 COLOR 7
  420. 26160 RETURN
  421. 30000 IF ERR=57 THEN RESUME
  422. 30010 RESUME
  423. 40000 INPUT X
  424. 45000 INPUT Y
  425. 50000 VIEW (629,2)-(360,215),X,Y
  426. 60000 GOTO 40000
  427.